!file name=cmfd.h
      real(NBF),pointer,dimension(:,:,:) :: fcf
      real(NBF),pointer,dimension(:,:,:,:) :: dtilf,dhat,dhato,cczf
!
      common/cfa/fcf
      common/cfb/dtilf,dhat,dhato,cczf